home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / hspasov4.lha / OVTest.pas < prev    next >
Pascal/Delphi Source File  |  1993-01-11  |  888b  |  39 lines
  1. { Program OVTest : Loads in a picture ( Test.8iff ) and fades
  2.   it in using opal.library routines (Opal.unit). by K.Petlig }
  3.  
  4. Program OVTest;
  5.  
  6. uses Exec, Opal, Crt;
  7.  
  8. var
  9.   OScrn : pOpalScreen;
  10.   RC : LongInt;
  11.   FName : CString;
  12.   IVar : Integer;
  13.  
  14. begin
  15.   OScrn:= NIL;
  16.   PasToC('Test.8iff', FName);   { Name of the background }
  17.   OpalBase:= OpenLibrary('opal.library', 0);
  18.   if OpalBase <> NIL then begin
  19.     RC:= LoadImage24(OScrn,@FName,0);
  20.     if RC > OL_ERR_MAXERR then begin
  21.       OScrn:= pOpalScreen(RC);  { Result code must be Pointer }
  22.       UpdatePalette24;
  23.       FadeOut24(2);
  24.       Delay(100);
  25.       Refresh24;
  26.       FadeIn24(100);
  27.       for IVar:= 1 to 200 do
  28.         Scroll24(1, 0);
  29.       for IVar:= 1 to 89 do Begin
  30.         Scroll24(-1, 2);
  31.         Scroll24(-0, 2);
  32.         end;
  33.       Delay(500);
  34.       CloseScreen24;
  35.       CloseLibrary(OpalBase);
  36.       end;
  37.     end;
  38.   end.
  39.